Getting the Data

fredr_set_key('07d43cd27b8d103658e01cf077124b24')
fredr(
  series_id = "M2SL")
) -> m2_sa #M2 monetarni agregat

fredr(
  series_id = 'MSPUS'
) -> median_house_price_nsa 

fredr(
  series_id = 'USSTHPI'
) -> house_price_index_nsa

fredr(
  series_id = 'WPU159402'
) -> jwlr_ppi_nsa #kompozitni index cen au, ag, pt

fredr(
  series_id = 'CSUSHPISA'
) -> sp500_sa 

fredr(
  series_id = 'LES1252881600Q'
) -> wag_median_sa #median wage

fredr(
  series_id = 'GNPC96'
) -> gnp_sa

fredr(
  series_id = 'MORTGAGE30US'
) -> mtg_30_nsa

fredr(
  series_id = 'MSACSR'
) -> hs_sale-sold_sa #houses for sale/houses sold

fredr(
  series_id = 'CPIAUCSL'
) -> cpi_sa
df_indices %>% 
  ggplot(data = .,
         aes(x = date)) + 
  geom_point(aes(y = MSPUS, color = 'median house price')) +
  geom_point(aes(y = CPIAUCSL, color = 'cpi')) +
  geom_point(aes(y = GNPC96, color = 'GNP')) +
  geom_point(aes(y = USSTHPI, color = 'HousePrice index')) +
  geom_point(aes(y = WPU159402, color = 'MetalsPrice index')) +
  geom_point(aes(y = M2SL, color = 'M2 Aggr.')) + 
  geom_point(aes(y = MORTGAGE30US, color = 'Mortgaege30Y rate')) +
  geom_point(aes(y = CSUSHPISA, color = 'S&P500')) + 
  geom_point(aes(y = LES1252881600Q, color = 'MedWage')) +
  scale_y_log10(name = 'log Value') +
  ggtitle('MacroVars Composite Plot') +
  scale_x_date(breaks = scales::breaks_pretty(100)) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))-> plot_composite
  
plotly::ggplotly(plot_composite)
LS0tCnRpdGxlOiAiRXhwbG9yYXRvcnkgRGF0YSBBbmFseXNpcyAmIERhdGEgV3JhbmdsaW5nIgpvdXRwdXQ6CiAgaHRtbF9kb2N1bWVudDoKICAgIGRmX3ByaW50OiBwYWdlZAotLS0KCmBgYHtyLCBpbmNsdWRlPUZBTFNFfQojaW1wb3J0IGxpYnJhcmllcwpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShmcmVkcikKYGBgCgojIEdldHRpbmcgdGhlIERhdGEKCmBgYHtyfQpmcmVkcl9zZXRfa2V5KCcwN2Q0M2NkMjdiOGQxMDM2NThlMDFjZjA3NzEyNGIyNCcpCmBgYAoKYGBge3J9CmZyZWRyKAogIHNlcmllc19pZCA9ICJNMlNMIikKKSAtPiBtMl9zYSAjTTIgbW9uZXRhcm5pIGFncmVnYXQKCmZyZWRyKAogIHNlcmllc19pZCA9ICdNU1BVUycKKSAtPiBtZWRpYW5faG91c2VfcHJpY2VfbnNhIAoKZnJlZHIoCiAgc2VyaWVzX2lkID0gJ1VTU1RIUEknCikgLT4gaG91c2VfcHJpY2VfaW5kZXhfbnNhCgpmcmVkcigKICBzZXJpZXNfaWQgPSAnV1BVMTU5NDAyJwopIC0+IGp3bHJfcHBpX25zYSAja29tcG96aXRuaSBpbmRleCBjZW4gYXUsIGFnLCBwdAoKZnJlZHIoCiAgc2VyaWVzX2lkID0gJ0NTVVNIUElTQScKKSAtPiBzcDUwMF9zYSAKCmZyZWRyKAogIHNlcmllc19pZCA9ICdMRVMxMjUyODgxNjAwUScKKSAtPiB3YWdfbWVkaWFuX3NhICNtZWRpYW4gd2FnZQoKZnJlZHIoCiAgc2VyaWVzX2lkID0gJ0dOUEM5NicKKSAtPiBnbnBfc2EKCmZyZWRyKAogIHNlcmllc19pZCA9ICdNT1JUR0FHRTMwVVMnCikgLT4gbXRnXzMwX25zYQoKZnJlZHIoCiAgc2VyaWVzX2lkID0gJ01TQUNTUicKKSAtPiBoc19zYWxlLXNvbGRfc2EgI2hvdXNlcyBmb3Igc2FsZS9ob3VzZXMgc29sZAoKZnJlZHIoCiAgc2VyaWVzX2lkID0gJ0NQSUFVQ1NMJwopIC0+IGNwaV9zYQoKYGBgCgpgYGB7ciwgaW5jbHVkZT1GQUxTRX0KbWFjcm9faW5kaWNlcyA8LWxpc3QoCiAgY3BpX3NhLAogIGducF9zYSwKICBob3VzZV9waWNlX25zYSwKICBob3VzZV9wcmljZV9pbmRleF9uc2EsCiAgandscl9wcGlfbnNhLAogIG0yX3NhLAogIG1lZGlhbl9ob3VzZV9wcmljZV9uc2EsCiAgbXRnXzMwX25zYSwKICBzcDUwMF9zYSwKICB3YWdfbWVkaWFuX3NhCikKCmBgYAoKYGBge3IsIGluY2x1ZGU9RkFMU0V9CnJlbmFtZV9mbiA8LSBmdW5jdGlvbihkZnJhbWUsIGNvbF9pZCwgbmFtZV9pZCl7CiAgbmFtZXMoZGZyYW1lKVtjb2xfaWRdID0gZGZyYW1lWzEsbmFtZV9pZF0KICByZXR1cm4oZGZyYW1lKQp9CiAgCmBgYAoKYGBge3IsIGluY2x1ZGU9RkFMU0V9CnJlbmFtZV9mbihjcGlfc2EsIDMsIDIpCmBgYAoKYGBge3IsIGluY2x1ZGU9RkFMU0V9CnRpZHlfZGF0YSA8LSBmdW5jdGlvbihkZnJhbWUpewogIGRmcmFtZSAlPiUgc2VsZWN0KC4sIC1jKCdzZXJpZXNfaWQnLCAncmVhbHRpbWVfc3RhcnQnLCAncmVhbHRpbWVfZW5kJykpIC0+IGRmcmFtZQogIHJldHVybihkZnJhbWUpCn0KYGBgCgpgYGB7ciwgaW5jbHVkZT1GQUxTRX0KbWFjcm9faW5kaWNlcyAlPiUgCiAgbWFwKC4sIH5yZW5hbWVfZm4oLiwgMywgMikpIC0+IGluZGljZXNfcmVuYW1lZAoKaW5kaWNlc19yZW5hbWVkICU+JSAKICBtYXAoLiwgfiB0aWR5X2RhdGEoLikpIC0+IGluZGljZXNfcmVuYW1lZApgYGAKCmBgYHtyLCBpbmNsdWRlPUZBTFNFfQpqb2luX2Zyb21fbGlzdCA8LSBmdW5jdGlvbihsaXN0X3RhcmdldCl7CiAgbHN0X3JlcyA8LSB0aWJibGUobGlzdF90YXJnZXRbMV0pCiAgZm9yKGkgaW4gMjpsZW5ndGgobGlzdF90YXJnZXQpKXsKICAgIGxzdF9yZXMgPC0gY2JpbmQobHN0X3JlcywgbGlzdF90YXJnZXRbaV0pCiAgfQogIHJldHVybihsc3RfcmVzKQp9Cgpqb2luX2Zyb21fbGlzdChpbmRpY2VzX3JlbmFtZWQpCgoKCmBgYAoKYGBge3IsIGluY2x1ZGU9RkFMU0V9CnBseXI6OmpvaW5fYWxsKGluZGljZXNfcmVuYW1lZCwgYnkgPSAnZGF0ZScsIHR5cGUgPSAnZnVsbCcpIC0+IGRmX2luZGljZXMKYGBgCgpgYGB7cn0KZGZfaW5kaWNlcyAlPiUgCiAgZ2dwbG90KGRhdGEgPSAuLAogICAgICAgICBhZXMoeCA9IGRhdGUpKSArIAogIGdlb21fcG9pbnQoYWVzKHkgPSBNU1BVUywgY29sb3IgPSAnbWVkaWFuIGhvdXNlIHByaWNlJykpICsKICBnZW9tX3BvaW50KGFlcyh5ID0gQ1BJQVVDU0wsIGNvbG9yID0gJ2NwaScpKSArCiAgZ2VvbV9wb2ludChhZXMoeSA9IEdOUEM5NiwgY29sb3IgPSAnR05QJykpICsKICBnZW9tX3BvaW50KGFlcyh5ID0gVVNTVEhQSSwgY29sb3IgPSAnSG91c2VQcmljZSBpbmRleCcpKSArCiAgZ2VvbV9wb2ludChhZXMoeSA9IFdQVTE1OTQwMiwgY29sb3IgPSAnTWV0YWxzUHJpY2UgaW5kZXgnKSkgKwogIGdlb21fcG9pbnQoYWVzKHkgPSBNMlNMLCBjb2xvciA9ICdNMiBBZ2dyLicpKSArIAogIGdlb21fcG9pbnQoYWVzKHkgPSBNT1JUR0FHRTMwVVMsIGNvbG9yID0gJ01vcnRnYWVnZTMwWSByYXRlJykpICsKICBnZW9tX3BvaW50KGFlcyh5ID0gQ1NVU0hQSVNBLCBjb2xvciA9ICdTJlA1MDAnKSkgKyAKICBnZW9tX3BvaW50KGFlcyh5ID0gTEVTMTI1Mjg4MTYwMFEsIGNvbG9yID0gJ01lZFdhZ2UnKSkgKwogIHNjYWxlX3lfbG9nMTAobmFtZSA9ICdsb2cgVmFsdWUnKSArCiAgZ2d0aXRsZSgnTWFjcm9WYXJzIENvbXBvc2l0ZSBQbG90JykgKwogIHNjYWxlX3hfZGF0ZShicmVha3MgPSBzY2FsZXM6OmJyZWFrc19wcmV0dHkoMTAwKSkgKwogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gOTAsIHZqdXN0ID0gMC41LCBoanVzdD0xKSktPiBwbG90X2NvbXBvc2l0ZQogIApwbG90bHk6OmdncGxvdGx5KHBsb3RfY29tcG9zaXRlKQpgYGAK